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ABSTRACT 

This  paper  presents  the  development  of  an  animated 
graphical  computer  simulation  of  an  air  defense 
scenario.  In  particular,  the  air  defense  scenario 
consists  of  a  variable  number  of  attackers,  pictured  as 
airplanes  and  a  variable  number  of  defenders,  pictured 
as  air  defense  artillery  tanks.  The  simulation  allows 
choosing  between  two  different  target  assignment 
protocols.  Protocol  1  simulates  a  random  target 
assignment,  where  every  defender  selects  a  target  at 
random  to  shot  at.  Protocol  2  simulates  a  controlled 
target  assignment,  where  the  defenders  are  assigned  to 
a  target  and  continue  to  track  the  target  untill  a  kill 
is  made.  The  simulation  is  written  in  BASICA,  uses  an 
IBM  Personal  Computer  (IBM  PC)  and  requires  a  color 
monitor  and  a  color /graphics  adapter  card. 
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I.    INTRODUCTION 

Microcomputers  are  used  more  and  more  frequently 
for  the  simulation  of  all  kinds  of  statistical  proces- 
ses. In  military  studies  different  combat  situations 
which  do  not  follow  standard  stochastic  processes  have 
been  simulated.  Simulations  are  also  often  used  to 
manifest  numerical  results,  even  when  a  nice  mathemati- 
cal closed  form  could  have  been  derived. 

This  paper  describes  the  development  of  a  computer 
simulation  for  an  air  defense  scenario.  In  a  typical 
computer  simulation  mathematical  and  logical  relation- 
ships are  used  to  create  a  real  world  model.  In  this 
development  an  animated  graphical  simulation  was  chosen 
to  demonstrate  the  possibility  of  not  only  running  a 
simulation  and  giving  several  numbers  as  an  output,  but 
also  showing  the  actual  occurrence  of  the  battle  as 
animated  pictures  on  the  screen.  This  gives  the  user 
direct  insight  into  what  is  happening  in  the  simulation 
without  many  hard-to-understand  explanations. 

The  intent  was  not  to  solve  a  very  tricky  combat 
simulation,  but  rather  to  show  some  of  the  possibili- 
ties of  what  a  computer  simulation  can  look  like. 


This  paper  is  one  of  several  efforts  at  the  Naval 
Postgraduate  School  to  present  various  stochastic  pro- 
cesses as  animated  graphical  simulations,  using  an  IBM 
Personal  Computer  (IBM  PC-XT).  Prior  developments  were: 
the  simulation  of  several  Poisson  Process  Models  [Ref . 
1],  the  simulation  of  a  Machine-Repairman  Model  [Ref. 
2]  and  the  simulation  of  a  Jackson  Queue  Network  Model 
[Ref.  3].  These  developments  were  a  close  guide  and 
presented  many  ideas  for  this  paper  to  follow  in  a 
series  of  animated  graphical  simulations  for  education- 
al purposes. 


II.   THE  AIR  DEFENSE  SCENARIO  MODEL 

A.   DISCUSSION 

The  simulation  of  the  model  of  an  Air  Defense 
Scenario,  described  in  this  paper,  contains  a  simple 
Force-on-Force  scenario,  where  several  defenders, 
pictured  as  Air  Defense  Artillery  (ADA),  intercept 
several  attackers,  pictured  as  Airplanes. 

The  defenders  are  stationary  on  the  ground  and  are 
actually  drawn  on  the  screen  as  ADA  Tanks  [Figure  1]. 
The  user  can  choose  between  one  and  seven  defenders. 


rotoco 


tandon  selection 


Figure    1.    Main    Screen 
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The  attackers  fly  from  right  to  left  in  the  top- 
section  of  the  screen  and  are  drawn  as  an  airplane 
formation,  for  which  the  user  can  choose  between  one 
and  nine  Airplanes. 

The  simulation  model  actually  consists  of  two  Air 
Defense  scenarios  with  two  different  target  assignment 
protocols . 

1 .  Assignment  Protocol  1 

Protocol  1  is  the  simulation  of  a  random  target 
assignment,  where  the  defender  randomly  chooses  a 
target  for  every  shot  he  fires.  It  is  meant  to  be  a 
demonstration  of  the  real  world  situation,  where  no 
communication  among  the  defenders  exists  and  all 
defending  resources  are  used  to  shoot.  It  will  be 
discovered  that  there  are  a  number  of  multiple  hits  on 
the  same  aircraft  because  of  the  lack  of  a  controlled 
target  assignment.  This  will  reduce  the  percentage  of 
kills  per  shot,  especially  when  there  are  more  defend- 
ers shooting  and  there  are  less  attackers  to  intercept 
as  well  as  when  the  hit  probability  for  every  defender 
is  high. 

2 .  Assignment  Protocol  2 

Protocol  2  is  the  simulation  of  a  controlled 
target  assignment,  where  each  defender  is  assigned  to  a 
different  target  and  holds  on  to  it  until  a  kill  is 
made.  After  hitting  his  target,  the  defender  is  given  a 


new  target  assignment.  This  is  done  until  there  are  no 
unassigned  targets  remaining.  Having  only  as  many 
defenders  shooting  as  there  are  targets  remaining  will 
result  in  saving  defense  resources.  There  will  be  no 
multiple  assignments  and,  therefore,  no  multiple  hits. 
The  percentage  of  kills  per  shot  will,  in  the  long  run, 
reach  the  hit  probability  chosen  for  the  simulation.  It 
reflects  the  real  world  situation  where  there  is 
communication  between  the  defender  and  the  command 
control  for  target  assignments. 
3 .   Model  Assumptions 

Both  protocols  are  simulated  and  run  indepen- 
dently, as  chosen  by  the  user,  and  are  shown  on  the 
same  type  of  screen  [Figure  1].  Several  assumptions  are 
made  to  simplify  the  model: 

-  After  a  target  formation  has  shown  up  on  the 
screen,  the  time  elapsed  from  detecting  the  targets 
to  the  actual  shot  Is  equal  for  all  defenders.  The 
user  can  enter  this  as  the  acquisition  time  at  the 
beginning  of  the  simulation  run.  The  time  during 
which  the  attackers  are  exposed  to  the  defenders  is 
also  constant  and  can  be  determined  by  the  user  as 
the  exposure  time.  This  means  that,  when  the 
acquisition  time  is  higher  than  or  equal  to  the 
exposure  time,  no  shot  can  be  fired  by  the  defend- 
ers and  all  airplanes  will  survive. 
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Having  fired  at  a  target  there  is  no  delay  before 
the  defender  is  able  to  fire  again,  even  when  there 
is  a  new  target  assignment.  This  is  not  quite  true 
in  the  real  world,  but  the  incorporation  of  a  delay 
would  have  slowed  down  the  graphic  simulation  and 
the  result  would  have  been  the  same.  This  is  be- 
cause the  simulation  runs  only  in  relative  time 
un  i  t  s . 

When  an  airplane  is  hit  for  the  first  time,  it  is 
considered  a  kill.  A  second  hit  within  the  same 
time  unit  is  not  counted  as  a  kill,  but  as  a 
multiple  hit. 

The  purpose  of  a  simulation  is  to  estimate  some 
arameters  or  the  relationships  between  parameters. 
Therefore,  the  simulation  is  repeated  several  times 
and  data  is  collected  to  estimate  the  real  world 
relationships.  This  simulation  model  executes  one 
attack  after  the  other  without  any  delay  between 
the  attacks  in  order  to  allow  the  simulation  to  be 
run  the  desired  number  of  attacks  without  unneces- 
sary intervention  by  the  user. 
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B.   MODEL  ESTIMATORS 

The  following  paragraph  explains  the  model  esti- 
mators, how  they  are  defined  and  how  they  are  calcu- 
lated from  the  simulation  parameters. 

After  the  completion  of  the  desired  number  of 
attacks  the  program  will  show  a  list  of  numerical  or 
graphical  statistics.  They  are  based  on: 

-  the  number  of  surviving  airplanes 

-  the  number  of  kills  made 

-  the  number  of  multiple  hits  made 

-  the  number  of  shots  fired  by  the  defenders 

-  the  number  of  attacks  actually  flown 

-  the  number  of  time  units  from  the  first  appearance 
of  the  attackers  until  the  last  airplane  in  the 
particular  formation  was  killed. 

1 .   Average  Number  of  Shots  per  Attack 

The  number  of  shots  which  are  fired  at  the 
attacker  between  the  end  of  the  acquisition  time  and 
the  end  of  the  attack  (when  all  attackers  are  killed  or 
the  exposure  time  has  expired)  are  counted.  To  be  able 
to  compare  this  number  to  other  simulation  iterations, 
it  is  not  printed  as  the  total  number  of  shots,  but 
instead  as  the  average  number  of  shots  per  attack  and 
is  calculated  as: 
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total . #  of  shots 

Avg  #  of  shots/attack  =  

#  of  attacks 


The  higher  this  number  is,  the  less  effective 
the  defense  is.  It  will  take  on  values  between  the  #  of 
attackers  and  the  #  of  defenders  *  (exposure  time- 
acquisition  time),  i.e.  1  to  1400. 

2 .   Average  Number  of  Kills  per  Attack 

The  average  number  of  kills  in  every  attack  is 
also  a  direct  measurement  of  the  effectiveness  of  the 
defense.  It  is  calculated  as: 


#  of  hits  -  #  of  mult,  hits 
Avg  #   of  kills/attack  

#  of  attacks 


It  will  be  0,  when  no  attacker  is  killed  and 
will  be  equal  to  the  #  of  attackers  when  the  defense 
has  its  highest  effectiveness. 

3 .   Average  Number  of  Multiple  Hits  per  Attack 

In  cases  where  an  airplane  is  hit  more  than 
once  by  the  defenders  within  the  same  time  unit,  the 
airplane  is  killed  by  the  first  hit.  All  additional 
hits  are  considered  as  multiple  hits.  This  is  only 
possible  under  protocol  1  (random  assignments),  because 
in  protocol  2  (controlled  assignments)  multiple  hits 
are  specifically  avoided.  It  is  computed  as: 
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-  #  of  multiple  hits 

Avg  #  of  multi.  hits/attack  =   

#  of  attacks 


This  average  number  depends  greatly  on  the 
number  of  attackers  and  defenders  as  well  as  on  the 
desired  hit  probability.  Clearly,  as  more  defenders 
shoot  against  less  attackers  with  a  higher  hit  probabi- 
lity, the  higher  the  number  of  multiple  hits  will  be. 
4 .   Average  Number  of  Survivors  per  Attack 

Establishing  the  number  of  surviving  airplanes 
at  the  end  of  their  exposure  time  will  give  a  direct 
measurement  of  the  effectiveness  of  the  defense.  In 
order  to  compare  this  number  with  other  attacks,  the 
average  number  of  survivors  per  attack  is  computed  as: 


#   of  survivors 

Avg  #  of  survivors/attack  =  

#  of  attacks 


The  values  are  between  zero  and  the  number  of 
attackers . 

5 .   Average  Number  of  Kills  per  Shot 

Related  to  the  theoretical  probability  of 
hitting  an  attacker  is  the  computed  average  number  of 
kills  per  shot.  In  the  case  of  protocol  2,  these  num- 
bers should  be  similar.  But  in  the  case  of  protocol  1, 
where  multiple   hits  will   occur,  the  average  number  of 


14 


kills  per  shot  will  be   less   than   the   probability  of 
hit.  It  is  computed  as: 


#  of  hits  -  #  of  add.  hits 

Avg  #  of  kills/shot  =   

#  of  shots 


The  values  will  range  from  zero  to  approximate- 
ly the  theoretical  probability  of  hit. 

6 .  Average  Time  until  the  Last  Attacker  is  Killed 
The  time   unit  in   which  the   last  attacker  was 

killed  is  the  actual  end  of  the  attack.  It  is  recorded 
as  the  acquisition  time  plus  the  time  the  attack  lasts. 
The  minimum  value  would  be  the  acquisition  time  and  the 
maximum  value  would  be  the  exposure  time. 

7 .  Percentage  of  Successful  Interceptions 

The  opposite  of  the  average  number  of  survivors 
per  attacker  is  the  average  number  of  successful 
interceptions.  It  is  derived  as  follows: 


#  of  survivors 
Avg  #  of  interceptions  -  1  -  

#  of  attackers 


Multiplying  the  Average  number  of  interceptions 
by  100  gives  the  percentage  of  successful  intercep- 
tions. This  value  ranges  from  0  to  100. 
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III.   THE  SIMULATION 

A.   THE  COMPUTER 

The  computer  used  for  this  graphic  simulation  is  an 
IBM  Personal  Computer  (IBM-PC)  or  a  100$  IBM-PC 
compatible  clone.  In  order  to  run  the  simulation,  one 
of  these  computers  must  be  equipped  with  a 
Color /Graphics  adapter,  a  color  monitor,  at  least  1 
floppy  disk  drive,  and  at  least  128k-bytes  of  random 
access  memory  (RAM).  All  computers  must  be  able  to  use 
IBM  Advanced  Basic  (BASICA)  in  MS-DOS  or  PC-DOS,  which 
requires  the  IBM  BASIC  ROM  chip  set.  If  the  computer  is 
not  equipped  with  these  chips,  it  must  be  capable  of 
running  a  generic  Version  of  BASICA,  such  as  GW-BASIC 
from  Microsoft.  The  simulation  runs  at  a  microprocessor 
clock  speed  of  4.77  MHz,  6  MHz,  8  MHz  or  even  higher. 
On  computers  with  a  higher  clock  speed,  the  simulation 
will  run  faster,  which  will  shorten  the  required 
simulation  run  time  when  large  numbers  of  attacks  are 
desired.  The  simulation  program,  AIRDEF,  was  written 
using  the  MS-DOS  disk  operating  system  Version  3.2,  but 
any  MS-DOS  or  PC-DOS  Version  developed  after  Version 
2.1  will  work.  However,  the  simulation  directly 
interacts  with  the  disk  operating  system  and,  there- 
fore, no   guarantee  may   be  given,   that  the  simulation 
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will  run  on  other  than  IBM-PC  or  100£  IBM-PC  compatible 
computers . 

B.   THE  PROGRAMMING  LANGUAGE 

AIRDEF  is  written  in  IBM  Advanced  Basic  (BASICA), 
which  is  the  programming  language  supplied  with  PC-DOS 
or  MS-DOS.  Other  Versions  like  GW-BASIC  from  Microsoft 
will  also  work.  BASICA,  the  language  version  used  is  a 
strictly  interpreted  language  and  is,  therefore,  much 
slower  than  compiled  languages,  such  as  TURBO  BASIC 
from  Borland  or  QuickBASIC  from  Microsoft.  To  follow 
the  previous  developments  of  graphical  simulation 
packages  at  the  Naval  Postgraduate  School  the  inter- 
preted language  BASICA  was  preferred.  This  is  due  to 
the  fact  that  speed  is  not  important  in  this  simula- 
tion. The  user  needs  to  be  able  to  follow  the  events  on 
screen  easily. 

The  RND  Function  in  BASICA  does  not  satisfactorily 
produce  random  numbers  [Ref.  2].  Therefore,  the  sub- 
routine RNGEN.SRT,  written  in  8088  assembly  language, 
was  used  to  produce  the  random  numbers  needed  for  this 
simulation.  During  the  development  of  the  simulation 
program,  it  was  discovered  that  the  uniformity  of  the 
random  numbers,  generated  with  RNGEN.SRT,  improves  when 
generating  more  than  approximately  30  random  numbers, 
compared  to  the  built-in  RND  Function  using  the  default 
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seed.  Due  to  the  fact  that  normally  more  than  50  random 
numbers  will  be  generated,  even  in  a  short  run  of  the 
simulation,  the  RNGEN.SRT  was  used.  A  subroutine  to 
change  the  random  number  generator  seed  of  RNGEN.SRT  is 
also  implemented  in  the  simulation  program  and  is 
easily  accessible  from  the  main  menu. 

C.   THE  PROGRAM  STRUCTURE 

The  program  listing  for  AIRDEF.BAS  is  supplied  in 
Appendix  B.  The  program  is  structured  in  several 
subroutines,  to  allow  an  easy  pursuing  of  the  steps 
taken  in  the  simulation.  The  subroutines  and  modules 
are  : 

-  BASICA  and  Color /Graphic  card  check 

-  print  Title  Screen 

-  load  RNGEN.SRT 

-  change  random  number  generator  seed 

-  print  Main  Menu 

-  default  simulation  parameter 

-  change  simulation  parameter 

-  capture  keyboard  response 

-  data  for  attacker  screen  coordinates 

-  print  numerical  statistic 

-  print  graphical  statistic 

-  protocol  1  sequence 
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-  protocol  2  sequence 

-  exit  the  program 

D.   THE  PROGRAM  DESCRIPTION 

The  simulation  of  the  air  defense  scenario  is 
animated  on  the  graphical  display  [Figure  1].  After  the 
desired  number  of  attacks  are  completed  the  statistics 
are  displayed  on  a  numerical  statistics  display  or  a 
graphical  statistics  display.  It  depends  on  the  user's 
response  as  to  which  display  is  prefered  for  the 
presentation  on  the  screen. 

After  the  program  is  started,  it  reserves  16k  bytes 
of  the  memory  for  variables  and  it  dimensions  the 
graphical  arrays.  A  check  is  made  whether  BASICA  or  a 
compatible  Basic  is  used  and  whether  a  color /graphics 
monitor  adaptor  card  is  installed  correctly  in  the 
computer  by  checking  specific  flags  in  the  memory  map 
of  the  computer . 

The  first  observed  screen  is  the  title  screen  and 
after  pressing  any  key,  the  RNGEN . SRT  is  loaded  into 
the  memory  and  the  main  program  menu  will  be  displayed 
on  the  screen.  The  user  then  has  several  options: 

-  start  with  default  parameters  and  Protocol  1 

-  start  with  default  parameters  and  Protocol  2 

-  change  the  simulation  parameters 
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-  set  the  random  number  generator  seed  or 

-  end  the  program. 

Some  of  the  more  administrative  programming  tasks 
have  been  adopted  in  part,  or  in  whole,  from  the 
programs  written  by  R.E.  Nelson  [Ref.  1]  or  G.F.  Green 
[Ref .  2]  in  order  to  fit  into  the  series  of  animated 
graphic  simulations  already  available. 

After  the  simulation  has  been  started,  the  main 
graphics  screen  is  drawn  and  an  airplane  (as  attacker), 
an  artillery  tank  (as  defender),  a  shooting  cloud  and  a 
fireball  are  drawn  and  saved  into  an  array.  Depending 
on  the  desired  number  of  defenders  and  attackers,  the 
line  of  defenders  is  drawn  at  the  bottom  of  the  screen, 
and  the  appropriate  formation  of  attackers  is  drawn  at 
the  top  of  the  screen  and  stored  into  an  array. 

Following  some  initial  settings  of  attribute  values 
of  the  defender /attacker  assignment,  the  formation  of 
airplanes  starts  moving  from  right  to  left.  The  set 
time  units  for  acquisition  will  pass  before  the  de- 
fenders begin  shooting  at  their  targets,  in  accordance 
with  their  assignment  protocol  1  or  2.  The  speed  of  the 
formation  is  computed  from  the  total  exposure  time  and 
transformed  to  increments  in  pixels  on  the  screen.  The 
higher  the  speed  of  the  formation,  the  more  pixels  the 
formation  is  advanced.  The  speed  limitations,  and, 
therefore,   the   limitations   on   the  exposure  time  are 
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given  by  a  resolution  of  320  pixels  horizontally  in  the 
medium  resolution  graphic  mode  and  the  width  of  the 
formation  of  120  pixels.  This  yields  a  maximum  of  200 
pixels  which  the  formation  can  travel,  and,  therefore, 
200  time  units  of  exposure.  The  width  of  a  single 
attacker  is  30  pixels  and  yields  the  minimum  time  units 
of  the  exposure  time. 

If  protocol  1  is  selected,  all  defenders  shoot  at 
the  same  time.  A  uniformly  distributed  random  number 
between  0  and  1  is  drawn  for  each  shot  and  for  every 
defender  and  compared  to  the  set  probability  of  hitting 
a  target.  The  single  shot  of  each  defender  is  con- 
sidered a  hit  when  the  random  number  is  less  than  the 
probability  of  a  hit.  A  new  random  number  is  drawn  and 
converted  to  a  uniform  distribution  between  1  and  the 
number  of  attackers,  for  the  selection  of  a  target  from 
the  remaining  attackers.  If  the  selected  target  is 
still  there,  the  hit  is  considered  a  kill  and  the 
target  is  removed  from  the  formation  by  placing  a 
fireball  in  its  place.  If  the  target  has  already  been 
hit  by  a  previous  defender,  within  the  same  time  unit, 
the  hit  is  considered  a  multiple  hit  and  a  fireball  is 
placed  on  the  former  coordinates  of  the  target,  to 
visualize  the  multiple  hit.  After  storing  the  new 
formation,  the  time  is  increased  by  the  number  of 
units,  according  to  the  speed  of   the  formation.   If  it 
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is  determined  by  the  random  number  generator  that  there 
has  been  no  hit  the  time  is  increased  immediately, 
without  going  through  the  above  computations. 

If   protocol   2   is   selected,   a   fixed   defender- 
target  assignment  is  issued   at   the   beginning   of  the 
attack  (e.g.   defender  No  1  is  assigned  to  target  No  1, 
defender  No  2  is  assigned  to  target  No  2  and  so  forth). 
Those   defenders   with   an   assignment   will  shoot  and, 
depending  on  a  random  number,  the  shot  is  determined  as 
hit  or  no  hit.  If  it  was  a  hit,  the  target  is  killed  by 
removing  it  from  the   screen  with   a  fireball,   and  the 
defender   gets   a   new   assignment  as  long  as  there  are 
unassigned  targets  remaining.  No  double  assignments  are 
issued,   which   is   more   realistic  and  saves  defending 
resources.  The  defender  is   immediately   ready   for  the 
next  shot. 

In  both  protocols  hits  are  also  characterized  by  an 
audible  beep.  The  attack  ends,  when  the  formation  has 
reached  the  left  side  of  the  screen  or  when  all 
airplanes  have  been  killed.  The  aircraft  reaching  the 
left  side  of  the  screen  are  counted  as  survivors  and 
the  time  units  elapsed  from  the  beginning  to  the  end  of 
the  attack  are  summed  up  over  all  attacks.  These 
variables  are  used  to  compute  the  statistics  at  the  end 
of  the  simulation. 
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E.   THE  STATISTICS  SCREENS 

At  the  end  of  the  simulation,  when  all  desired 
attacks  have  been  flown,  the  program  will  ask  whether  a 
numerical  -or  a  graphical  representation  of  the  statis- 
tics is  preferred. 

1 .   The  Numerical  Statistics  screen 

The  numerical  statistics  screen  [Figure  2] 
contains  the  averages  computed  from  the  empirical 
values  of  the  simulation  variables.  They  are  related  to 
the  simulation  parameters,  which  are  also  printed  in 
the  top  section  of  the  screen. 


PROTOCOL  1  with    10  ATTACKS 


Attackers  :  5 
Defenders  :  5 
Hi tprob.   : .50 


Exposure  tine:  50 
Acquisi  t . tiwe :  10 


Avg  No  of  shots/attack 
Avg  No  of  kills/attack 
Avg  No  of  muI  t . hi ts/attack 
Avg  No  of  survivors/attack 
Avg  No  of  kills/shot 
Avg  tine  to  last   survivor 


=  15.50 
=  5.00 
=      3.20 

=        0.00 

=      0.323 

=  13.10 


<G>raphical    statistic   <C>ontinue    <Q>uit£ 


Figure    2.    Numerical    Statistics 
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The  user  has  a  choice  of: 

(a)  switching  to  the  graphical  statistics  screen 

(b)  continuing  to  the  next  simulation 

(c)  quitting  the  program. 

2 .   The  Graphical  Statistics  Screen 

Upon  switching  to  the  graphical  statistics 
screen  [Figure  3],  the  numerical  statistics  will  be 
presented  in  graphical  form.  It  is  intended  to  give  the 
user  a  better  insight  into  the  relationships  of  the 
simulation  parameters  and  the  observed  variables,  by 
representing  them  in  barcharts. 


PROTOCOL  1 


Attackers 
Defenders 
Hi  tprob. 


5 

5 

.50 


No  of  Attacks:   10 


Avg  per  Attack: 

Shotsliilinillliliillllllli:!     16 
KillsHU  5.0 

Mult.  ■  3.2 

Kills/shotCO  =  32 


Tines: 
Expos! 
Acqui 
Survi 


50 
10 
13 


Intercepted("/)=100 


PROTOCOL  2 


Attackers 
Defenders 
Hi  tprob. 


5 

5 

.50 


No  of  Attacks:   10 


Avg  per  Attack: 

Shotsi!!««^^^^^^       9 


Kills! 
Mult. 


5.0 
0.0 


Kills/shotCO  =  54 


Tines: 

Exvosvmmnmm    50 

10 

I         13 


Acqui 
Survi 


Intercepted^)  =100 


<N>uwerical  statistic  <C>ontinue  <Q>uit 


Figure  3.  Graphical  Statistics 
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When  the  graphical  statistics  screen  is  entered  the 
first  time,  only  the  left  half  of  the  screen  is  employ- 
ed. After  running  the  simulation  a  second  time,  maybe 
with  other  parameters  or  using  the  other  protocol,  the 
former  left  side  of  the  screen  is  moved  to  the  right 
side  of  the  screen  and  the  new  statistics  are  shown  on 
the  left  side.  This  will  allow  an  easy  comparison  of 
the  new  statistics  with  the  pervious  ones. 
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IV.  CONCLUSIONS 

A  graphic  simulation  of  an  air  defense  combat 
scenario  is  presented  in  this  paper.  This  animated 
graphical  simulation  allows  the  user  to  gain  insight 
into  the  dynamic  behavior  of  a  combat  model. 

Even  though  the  model  was  not  intended  to  solve  a 
specific  type  of  scenario,  it  illustrates  several 
conclusions  as  to  what  type  of  target  assignment  is 
preferable.  This  depends  on  the  given  simulation 
parameters.  No  communication  between  the  defenders,  as 
demonstrated  with  protocol  1,  will  generally  result  in 
a  heavier  use  of  defending  resources,  since  multiple 
hits  will  occur  and  the  defender  will  only  stop 
shooting  when  all  attackers  are  killed.  If  only  the 
time  until  the  last  aircraft  has  survived  is  of  concern 
and  no  restrictions  on  ammunition  is  made,  then 
protocol  1  may  be  of  a  higher  ef f ectivness .  But  when 
the  average  number  of  kills  per  shot  is  important  and 
ammunition  is  limited,  then  protocol  2  will  bring 
better  results. 

To  find  a  guideline  for  other  specific  problems, 
the  user  might  want  to  experiment  with  this  simulation 
model . 
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A.   INTRODUCTION 

AIRDEF  is  a  stochastic  discrete  event  simulation  of 
an  air  defense  scenario  model.  It  is  a  simple  force-on- 
force  scenario,  where  several  defenders,  depicted  as 
Air  Defense  Artillery  Tanks  (ADA),  intercept  several 
attackers,  depicted  as  an  airplane  formation.  The 
simulation  implements  a  variety  of  graphic  displays  to 
demonstrate  the  events  in  this  scenario,  and  gives  the 
user  a  choice  of  a  numerical  or  a  graphical  display  of 
the  various  statistics,  computed  in  the  simulation. 

This  manual  is  intended  to  assist  the  user  in  the 
actual  utilization  and  operation  of  the  program.  For 
describing  commands  and  keyboard  entries,  the  following 
notation  is  used: 

-  '   '  single  quotes  are  used  whenever  the  user 
should  type  a  command  exactly  as  shown. 

-  <  >  brackets  are  used  whenever  a  letter  or  other 
key  should  be  pressed. 

For  Example,  'AIRDEF'  <ENTER>  means:  type  the  command 
exactly  as  it  appears  between  the  quotes  and  press  the 
ENTER  key.  PC-DOS,  MS-DOS  and  AIRDEF  make  no  distinc- 
tion between  upper  or  lower  case  letters,  hence,  either 
one  may  be  used. 
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B.   MODEL  DESCRIPTION 

AIRDEF  simulates  an  air  defense  situation,  where  a 
maximum  of  seven  Air  Defense  Artillery  Tanks  attempt  to 
intercept  a  maximum  of  nine  aircraft,  flown  in  a 
formation.  The  purpose  is  to  show  the  differences 
between  two  specific  target  assignment  protocols,  in 
terms  of  defense  effectiveness. 

Protocol  1  is  the  simulation  of  a  random  target 
assignment,  where  the  defender  randomly  choses  a  target 
for  every  shot  he  fires.  It  is  intended  to  be  a 
demonstration  of  a  real  world  situation,  where  no 
communication  between  the  defenders  or  any  command  post 
exists  and  all  defending  resources  are  used  to  inter- 
cept the  attackers.  It  will  be  discovered,  that 
multiple  hits  on  the  same  aircraft  will  occur,  due  to 
the  lack  of  coordination  in  target  assignment. 

Protocol  2  is  the  simulation  of  a  controlled  target 
assignment,  where  each  defender  is  assigned  to  a 
different  target  and  holds  on  to  it  until  a  kill  is 
made.  After  hitting  his  target  the  defender  is  reas- 
signed a  new  target  until  there  are  no  unassigned 
targets  remaining.  This  is  a  simulation  a  real  world 
situation,  where  there  is  communication  between  the 
defenders  and  a  command  post,  which  makes  controlled 
target  assignments.  This  will  result  in  saving  defense 
resources,   since   there   are   only   as   many  defenders 
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shooting  as  there  are  targets  remaining  in  the  forma- 
tion. Since  there  are  no  double  assignments  there  are 
no  multiple  hits.  Because  of  the  type  of  target 
assignment  the  percentage  of  kills  per  shot  will  be 
higher  in  protocol  2  than  in  protocol  1 . 

Several   assumptions    are   made   to   simplify   the 
models : 

-  constant  acquisition  time  for  all  defenders 

-  constant  exposure  time  for  all  attackers 

-  no  second  acquisition  time  after  shooting  has 
started 

-  first  hit  is  a  kill 

-  all  subsequent  hits  are  multiple  hits 

-  no  delay  between  consecutive  attacks 
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C.   HARDWARE  AND  SOFTWARE  REQUIREMENTS 

1 .  Hardware 

The  simulation  has  been  programmed  for  an  IBM 
Personal  Computer  (IBM-PC)  and  uses  color  graphics.  The 
computer  must  be  equipped  with  a  color  monitor  and  a 
color /graphics  adapter  card,  or  the  simulation  would 
not  function  properly.  The  computer  should  have,  at 
least,  one  5  1/4  inch  floppy  disk  drive  and  128  k-bytes 
of  random  access  memory  (RAM).  The  simulation  program 
uses  BASICA,  which  requires  64  k-bytes,  and  an  assembly 
language  subroutine  program,  which  is  loaded  into 
memory  outside  of  BASICA. 

The  computer  must  also  be  able  to  use  IBM 
Advanced  Basic  BASICA  in  PC-DOS  or  MS-DOS  or  to  use 
GW-basic . 

2 .  Software 

AIRDEF  is  written  in  Advanced  Basic  BASICA, 
which  is  normally  provided  with  the  PC-DOS  operating 
system.  The  program  will  also  run  under  MS-DOS 's  BASICA 
and  GW-Basic. 

The  primary  BASIC  program  AIRDEF. BAS  and  the 
assembly  language  subroutine  RNGEN.SRT  are  provided  to 
the  user  on  the  distribution  diskette.  In  addition  to 
these  programs,  the  user  must  provide  the  Disk  Operat- 
ing System  PC-DOS  or  MS-DOS  Version  2.1  (or  higher)  and 
the  Advanced   Basic  BASICA   or  GW-Basic  in  order  to  run 
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the   simulation.   Since   AIRDEF.BAS   uses   BASIC'S  POKE 
command  and   certain  BIOS  interrupt  calls,  there  can  be 
no  guarantee,  that  the  simulation  will   run  properly  on 
not  100^  IBM- compatible  machines. 
3 .   Program  Files 

The  following  files  are  provided: 

-  AIRDEF.BAS.  ...  the  main  program  in  BASICA 

-  RNGEN.SRT the  random  number  generator 

-  AIRDEF.BAT. ...  to  start  the  program  in  DOS 

-  AUTOEXEC.BAT. . to  auto-start  the  program 

The  first  two  files  are  necessary  to  run  the  simula- 
tion. The  two  batch  files  allow  the  user  to  either 
start  the  simulation  once  the  DOS  environment  is 
already  loaded  (AIRDEF.BAT),  or  to  auto-start  the 
simulation  while  the  computer  is  turned  on.  These  two 
files  are  not  necessary,  but  are  for  the  convenience  of 
the  user.  A  source  code  listing  of  RNGEN.SRT  is 
provided  in  Reference  2. 

The  user   must   provide   the   PC-DOS   or  MS-DOS 
operating  system  and  BASICA  or  GW-Basic. 
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D.   GETTING  STARTED 

1 .   Making  an  Application  Disk 

Before  working  with  the  simulation  program,  it 
is  recommended  that  an  application  disk  be  created  and 
the  original  distribution  disk  be  stored  in  a  safe 
place.  Even  so  there  are  many  ways  to  create  an 
application  diskette,  this  manual  suggests  a  bootable 
application  diskette,  which  may  be  found  more  con- 
venient for  single  drive  computers. 

To  make  a  bootable  diskette  follow  the  PC-DOS 
manual  and  format  a  blank  diskette  by  typing  at  the  DOS 
prompt:  'format  a:/s'  with  the  DOS  diskette  in  drive  A. 
The  system  will  prompt  on  the  screen  to  place  a  new 
diskette  into  drive  A  and  to  hit  <ENTER>.  The  user 
should  make  sure  that  there  is  a  new  diskette  in  drive 
A  before  the  <ENTER>  key  is  pressed,  otherwise  the  DOS 
diskette  would  be  erased.  The  /s  option  causes  DOS  to 
transfer  the  necessary  hidden  files  and  the  C0MMAND.COM 
file  to  the  new  diskette  to  make  it  self  starting  by 
turning  on  the  computer  with  the  disk  in  drive  A.  The 
Advanced  Basic  file,  called  BASICA.COM  should  be 
transferred  by  the  user  from  the  DOS  diskette  with  the 
COPY  command.  Finally,  the  COPY  command  should  be  used 
to  transfer  all  other  files  from  the  simulation 
distribution  diskette  to  the  new  application  diskette. 
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2 .   Starting  the  Simulation 

If  the  computer  is  turned  off,  place  the  new 
application  diskette  into  drive  A  and  turn  the  system 
on.  The  simulation  should  start  automatically,  when  the 
AUTOEXEC.BAT  file  and  all  necessary  program  files  are 
on  the  disk. 

If  the  computer  is  already  turned  on  and  the  A> 
prompt  is  on  the  screen,  simply  type  'AIRDEF'  and  the 
file  AIRDEF.BAT  will  load  BASICA  into  the  memory  of  the 
computer  and  the  simulation  program  AIRDEF. BAS  will  be 
loaded  into  the  BASICA  environment  and  automatically 
started . 

If,  for  any  reason,  the  batch  files  should  not 
be  utilized,  the  simulation  can  also  be  started  by 
typing  'BASICA'  at  the  DOS  A>  prompt  and  from  the  Basic 
environment  by  typing  ' load"a: airdef '  <ENTER>  and  'run' 
< ENTER >. 

During  execution  of  the  program,  AIRDEF 
attempts  to  load  the  random  number  generator  RNGEN.SRT 
from  the  default  drive.  If  the  program  fails  to  find 
the  file  RNGEN.SRT  on  this  drive,  it  will  ask  the  user 
for  the  correct  drive  label ,  where  the  file  can  be 
found.  Simply  type  in  the  proper  drive  label  and  press 
the  ENTER  key.  This  problem  will  never  arise,  when  the 
bootable  application  diskette  is  used  to  start  the 
computer . 
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3.   Title  Screen 

Upon  starting  the  simulation,  the  first  screen 
seen  by  the  user  will  be  the  title  screen  as  shown  in 
Figure  1.  From  this  point  on,  the  on-screen  prompts 
will  guide  the  user  through  the  run  of  the  simulation. 


GRAPHIC  SIMULATION 
of  an 
AIR  DEFENSE  SCENARIO 

by  Klaus  Schuster 


Sukwitted  in  partial  fulfillment 
of  the  requirements  for  the  degree  of 

Master  of  Science  in  Operations  Research 

from  the  Naval  Postgraduate  School 
Monterey,  California 

Advisors  J.D.  Esary,  P.  Purdue 


Press  any  key  to  continue... 


Figure  1.   The  Title  Screen 
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E.   PROGRAM  MAIN  MENU 

After  leaving  the  title  screen,  by  pressing  any 
key,  the  next  screen  will  be  the  program  main  menu,  as 
shown  in  Figure  2.  The  options  in  the  program  main  menu 
allow  the  user  to  read  the  instructions,  select  the 
default  simulation  parameter  for  the  assignment 
protocol  1  or  2 ,  change  the  simulation  parameter,  get  a 
new  seed  for  the  random  number  generator  or  end  the 
program . 


PROGRAM  MENU 


< I >nstructions 

<l>Default  Paraneter  Protocol  1 
<2>Default  Paraweter  Protocol  2 
<C>hange  Simulation  Parameter 
<N>ew  randoH  nuwfeer  generator  seed 
<Q>uit  Prograw 


Enter  your  selection: 


Figure  2.   The  Main  Menu 

A  summarized  version  of  the  program  instructio 
ns,  found  in  this  manual,  are  available  on  screen. 
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1 .  Default  Parameter  Protocol  1 

If  this  option  is  selected  by  pressing  <1>, 
then  the  simulation  starts  with  the  default  values  of 
the  simulation  parameters.  Protocol  1  is  the  random 
target  assignment  protocol. 

These  values  are: 

-  number  of  attackers  =  7 

-  number  of  defenders  =  5 

-  probability  of  hit  =  .2 

-  exposure  time  =  40 

-  acquisition  time  =  30 

-  number  of  repeated  attacks     =  20 

-  assignment  protocol  =  1 

To  customize  the  program,  the  user  could  change  these 
default  values  in  the  program  by  altering  the  program 
statements  in  the  AIRDEF.BAS  program  in  lines  12000  to 
12200.  The  best  way  to  do  so,  is  by  listing  these  lines 
inside  the  basic  environment  by  typing  'list  12000- 
12200'  <ENTER>  and,  in  the  full  screen  editor,  moving 
the  cursor  to  the  desired  line,  changing  the  value  and 
pressing  the  <ENTER>  key  again.  To  run  the  simulation 
with  the  new  default  values,  type  'run'  <ENTER>. 

2 .  Default  Parameter  Protocol  2 

If  this  option  is  selected  by  pressing  <2>, 
then  the  simulation  starts  with  the  same  default 
simulation  parameters  as   before   when   protocol   1  was 
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chosen,  with  the  exception,  that  now  assignment 
protocol  2  is  used  to  make  controlled  target  assign- 
ments . 

3 .   Changing  the  Simulation  Parameter 

When  <C>  is  pressed,  AIRDEF  will  ask  for  the 
desired  values  of  the  parameters  as  shown  in  Figure  3. 
If  the  user  tries  to  change  the  parameters  to  values 
outside  of  the  given  boundaries,  the  program  will 


^^CHANG^SIMU^^^ 

Enter*  tt  of  Attackers  CI... 9):  5 
Enter  tt  of  Defenders  CI... 7):  5 
Enter  PC  hit  a  plane  ]  (0,.. 1)1.5 
Enter  Exposure  tine  (30.. 280): 50 
Enter  Acquisi tiontiwe  (0..200):10 
Enter  tt  of  repeated  attacks  :10 
Enter  Protocol  type    (1  or  2):  2| 


Figure  3.   Change  Simulation  Parameter  Screen 

refuse  to  accept  these  values  and  ask  for  the  same 
parameter  value  again.  After  entering  the  new  values 
the  <ENTER>  key  must  be  pressed  every  time.  When  all 
values  are  changed,  the  simulation  starts  a  new  run. 
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4 .   Setting  the  Random  Number . Generator  Seed 

A  new  seed  for  the  random  number  generator  can 
be  entered,  by  pressing  <N>.  The  program  will  prompt 
for  a  seed  value  as  shown  in  Figure  4.  Allowed  seed 
values  are  only  integers  in  the  range  from  one  to 
2,147,483,646  (which  is  231  -  2).  Non-integers  are 
truncated  by  the  program. 


SET  RANDOM  NUMBER  GENERATOR  SEED 

Allowed  seed  values  are  integers 
in  the  range  1  ...  2,147,483,646 

Enter  the  new  seed  value  :   645271231 


Figure  4.   Set  New  Random  Number  Generator  Seed 

If  no  seed  is  selected,  a  default  seed  is  used 
by  the  RNGEN.SRT  and  updated  with  each  call  for  a 
random  number.  Every  time  the  simulation  is  started 
from  BASICA   by  typing   'run',  the   seed  is   set  to  its 
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initial  value.  If   the   simulation   is   started  without 
leaving  AIRDEF,   the  sequence   of  random  numbers  is  not 
broken,  even  when  a  new  run  from  the  main  menu  is  made. 
5 .   Ending  the  program 

To  quit  the  program  press  <0>  at  the  main  menu, 
at  one  of  the  statistics  screens  or  at  the  iterations 
option  screen.  This  will  clear  the  screen  and  by 
showing  the  message  in  Figure  5,  leave  the  PC  in  the 
BASICA  command  mode  at  40  character  width.  If  it  is 
desired  to  go  to  80  character  width,  type  'screen  2' 
<ENTER>,  and  to  return  to  DOS,  type  'system*  <ENTER>. 


Thank  you  for-  using  AIRDEF. BAS 
Good  Byef 


Ok 


1LIST    2RUN<-    3L0AD"   4SAUE"   5C0NT«- 


Figure  5.   Ending  Screen 
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F.   THE  GRAPHICS  DISPLAYS 

1 .   The  Scenario  Graphics  Screen 

AIDEF  uses  a  graphics  screen  to  show  the 
animation  of  the  simulation  as  seen  in  Figure  6  and 
Figure  7.  Both  assignment  protocols,  1  and  2,  work  on 
the  same  type  of  graphics  screen,  only  the  action 
differs.  To  indicate  which  protocol  is  used,  it  is 
stated  on  the  bottom  line  of  the  screen.  The  actual 
number  of  the  attack  flown  is  indicated  in  the  lower 
right  corner.  The  airplane  formation  flies  from  right 
to  left  and  its  speed  is  determined  by  the  exposure 
time  . 


Figure  6.   Graphics  Screen  Protocol  1 
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A  shot  is  indicated  by  a  small  cloud  above  the  ADA 
tanks.  A  hit  is  indicated  by  a  fireball  in  place  of  the 
airplane.  Even  if  an  attacker  is  already  killed,  a 
multiple  hit  is  also  indicated  as  a  fireball.  (Multiple 
hits  are  only  possible  with  protocol  1). 


Figure  7.  Graphics  Screen  Protocol  2 

After  the  desired  number  of  attacks  are 
completed,  or  when  any  key  was  pressed,  the  simulation 
will  stop  at  the  end  of  the  last  attack  and  give  a 
choice  of  two  different  types  of  statistical  displays: 
numerical  or  graphical.  Both  present  the  same  informa- 
tion, but  in  a  different  way. 
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2 .   The  Numerical  Statistics  Screen 

To  receive  the  numerical  statistics  display, 
press  <N>  and  the  screen  will  clear  and  yield  a 
numerical  presentation  of  the  simulation  statistics  as 
shown  in  Figure  8. 


PROTOCOL  1  with    20  ATTACKS 

Attackers 
Defenders 
Hi  tprob. 

:  7       Exposure 
:  5       Acquis it 
:  .20 

t 

,t 

i Me:  40 
iMe:  30 

Avg  No  of 

shots/attack 

~ 

36.25 

Avg  No  of 

ki lls/attack 

= 

6.80 

Avg  No  of 

muI t . hi  ts/at  tack 

= 

0.50 

Avg  No  of 

survivors/attack 

= 

0.20 

Avg  No  of 

kills/shot 

- 

0.188 

Avg  tine  i 

to  last   survivor 

= 

37.25 

<G>raphical  statistic  <C>ontinue  <Q>uiti 


Figure  8.   Numerical  Statistics 

The  upper  section  shows  the  given  simulation 
parameters,  such  as  the  type  of  protocol,  the  number  of 
attacks  actually  flown,  the  number  of  attackers  and 
defenders,  the  probability  of  hitting  an  aircraft,  the 
exposure  and  the  acquisition  time.  The  rest  of  the 
screen  shows  all  different   kinds  of   averages  computed 
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in  the  simulation.  For  a  complete  description  of  the 
implications  and  possible  values  of  the  displayed 
averages  see  chapter  B.  MODEL  ESTIMATORS  on  pages  12  to 
15,  earlier  in  this  paper. 

A  quick  crosscheck  of  the  values  can  be  made, 
by  ensuring,  that  the  sum  of  the  averages  of  kills  per 
attack  and  survivors  per  attack  add  up  to  the  number  of 
attackers,  or  checking  that  the  average  of  kills  per 
attack  divided  by  the  average  of  shots  per  attack 
equals  the  average  of  kills  per  shot,  or  checking  that 
the  value  of  the  average  time  to  the  last  survivor  is 
higher  than  the  acqusition  time,  but  lower  or  equal  to 
the  exposure  time. 

On  the  bottom  line  of  the  screen  a  small  menu 
gives  the  user  the  options  of  going  to  the  graphical 
representation  of  the  statistics,  continuing  to  the 
next  menu  or  quitting  the  program. 

Quitting  the  program  by  pressing  the  <Q>  key 
will  exit  the  program  and  lead  the  PC  into  the  BASICA 
command  mode  as  shown  in  Figure  5 . 

Continuing  the  program  by  pressing  <C>  will 
cause  the  iterations  option  screen,  as  described  in  the 
capital  F.  5 .  on  page  49  and  shown  in  Figure  11,  to  be 
displayed . 

Pressing  <G>  will  change  the  screen  to  the 
graphical  statistics  screen  (Figure  9  or  Figure  10). 
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3.   The  Graphical  Statistics  Screen 

When  this  screen  is  evoked  the  first  time  in 
the  simulation,  the  graphical  representation  utilizes 
only  the  left  half  of  the  display  as  shown  in  Figure  9. 


PROTOCOL  1 

Attackers  :  7 
Defenders  :  5 
Hi tprob.   : .20 

No  of  Attacks:   20 

A u q  per  Attack" 
Shots     :   "  36 

KillsiE        6.8 
Mult.  0.5 

Kills/shot(X)  =  19 


Tiwes : 
ExposS 
Acqui 
Survi 


40 
30 
37 


Intercepted*:/)::  97 


<N>uwerical  statistic  <C>ontinue  <Q>uit 


Figure  9.  Graphical  Statistics  (half) 

This  is  the  graphical  representation  of  the 
numerical  statistical  values.  The  upper  section  shows 
part  of  the  desired  model  parameters  as  before,  and  the 
averages  are  visualized  as  horizontal  bargraphs.  The 
user  is  enabled  to  compare  the  values  graphically.  The 
percentage  of  kills  per  shot  and  successfully  inter- 
cepted attacks  are  shown  numerically. 
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The  line  at  the  bottom  of  the  screen  offers  the 
user  the  option  to  switch  back  to  the  numerical 
statistics  screen,  to  continue  to  the  iterations  option 
screen  or  to  quit  the  program. 

Entering  the  graphical  statistics  screen  option 
a  second  time  will  result  in  the  graphical  utilization 
of  the  full  screen  (Figure  10).  The  bargraphs ,  formerly 
on  the  left  half  of  the  graphical  screen,  are  shifted 
to  the  right  side  and  the  new  statistics  are  displayed 
on  the  left  side.  Thus  the  user  is  enabled  to  compare 
the  former  statistical  results  with  the  most  recently 
computed  simulation  results. 


PROTOCOL  1 


Attackers  :  5 
Defenders  :  5 
Hitprob.   : .50 

No  of  Attacks:   18 


Avg  per  Attack: 

Shots  !■■■■■ 

Kills 
Mill  t . 


PROTOCOL  2 


Attackers  :  5 
Defenders  :  5 
Hitprob.   :.50 

No  of  Attacks.'   10 


Avg  per  Attack: 

16    shotsmmnoH     9 

5.0  Killslliiilil     5.0 
3.2  Mult.  0.0 


Kills/shot<X>  =  32 


Tines : 

Expos;"1"1111" 
Ac qui! 
Survil 


Kills/shotC/.)  =  54 


,,,!,,,:., 


Tines: 
50  S  Expos 


10 


13     Survi 


Intercepted(/.)=100 


Ac  qui 


'!|l|l!ll!ll»i|i.|:||IH'!mii! '"H«l: |jl|||i'i:| 


50 

10 

13 


Intercepted(X)=100 


<N>uwerical    statistic    <C>ontinue    <Q>uit 


Figure    10.       Graphical    Statistics    (full) 
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4 .   The  Iterations  Option  Screen 

Pressing  the  <C>  key  will  display  the  itera- 
tions option  screen  in  Figure  11.  This  allows  the  user 
to  proceed  in  the  program  without  going  back  to  the 
main  menu.  Basically,  it  is  intended  to  start  new 
iterations  in  the  simulation,  which  have  the  same 
parameters  as  before,  but  using  another  type  of  target 
assignment  protocol. 


~ 

New  Iterations  under: 
<S>ane  Protocol 
<0>ther  Protocol 

<M>ain  Menu 
<Q>uit 

<N>unerica 

Enter  your  selection: 
1  statistic  <C>ontinue 

<Q>uit 

Figure  11.   Iterations  Option  Screen 

Pressing  <S>  will  start  new  attacks  with  the 
same  type  of  protocol.  Pressing  <0>  will  start  them 
with   the    alternative   protocol.   The   random   number 
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generator  seed  will  not  be  reset.  This  is  only  the  case 
when  the  program  is  restarted  from  the  BASIC  command 
level.  Hereby  the  user  is  able  to  compare  simulation 
runs  with  different  seed  values,  without  changing  the 
seed  from  the  main  menu. 

In  addition  to  this,  the  user  will  still  have 
the  option  of  going  back  to  the  main  menu  or  quitting 
the  program. 

G.   PROGRAM  MODIFICATIONS 

To  alter  the  program,  the  user  should  consult  a 
BASIC  programming  manual  of  how  to  change  and  save  the 
modified  program.  A  backup  copy  of  the  original  is 
essential  at  this  point,  otherwise  a  well  running 
program  could  be  lost. 

Permanent  changes  could  be  made  for  the  default 
values  of  the  simulation  parameters.  The  default  values 
are  set  in  the  program  section  lines  12000  -  12200. 

Eliminating  the  beep,  everytime  a  hit  occurs,  could 
be  done  by  deleting  line  51260  and  line  52180. 

After  studying  the  program  structure,  an  ex- 
perienced programmer  could  add  additional  types  of 
assignment  protocols  to  the  model,  since  the  program, 
structured  with  subroutines,  is  open  for  changes. 
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APPENDIX  B 
AIRDEF.BAS  PROGRAM  LISTING 

M 

laus  Schuster,   Aug  1987    * 

* 


2 
3 
4 
5 

N 

*  AIRDEF.BAS   VI  .  0  , 

N 
»  ********************** 

6 
10 

CLEAR,, 16384  :  KEY  OFF 

CLS 

97  • 

<}g    '  *  M  K  *  *  K  *  K  *  *  H   *  *  H    *  *  *  *  M  *  *  *  *  *      I  II  1  t  i  3.  1  1  S  3.  t  1  O II      *  *  *  *  *  *  *  * 

99  ' 

100  DIM  PLANE£(124 ) ,TANK&(496) ,BULL#(10) ,BUM£(100) 
105  DIM  CLOUD^(IOO) ,BLANK£(100) ,  FORMATION^  2000  ) 
115  DIM  STATl£(8010) ,PT(8) ,PLNR(9 ) 

220  GOSUB  5000  'Check  for  BASICA  and  color /graphics 

230  GOSUB  6000  'Print  Title  screen 

250  GOSUB   10000  'Load  random  number  generator 

260  GOSUB  11000  'Print  main  program  menu 
799  ' 

800        *******************************  flgW       rUIl  ******** 

801     ' 

810  REPEAT  =  REPEAT  +  1 

860  SCREEN  1 

865  COLOR  1,0 

867  CLS 

897  ' 

898  **********************   draw  green  hills   ******** 

899  * 

90  0  CIRCLE (5 0,30  0)  ,200,1,  .93, 2!, .9 

905  CIRCLE (230, 30  0)  ,220, 1,1!, 2. 12,  .9 

910  PAINT(30,180  )  ,1 

912  ' 

913  ******************   draw  brown  mountains   ******** 

914  ' 

915  CIRCLE (50, 300), 200, 3, 1.1, 2! ,.9 
92  0  CIRCLE (230 ,300), 220, 3,1!, 2. 12,  .9 
930  LINE(0,90)-(40,50  )  ,3 

935  LINE(40 ,50  )-(63,90  )  ,3 
940  LINE(52,70  )-(90,40)  ,3 
945  LINE(90,40  )-(146,115  )  ,3 
950  LINE(142,110)-(240,50) ,3 
955  LINE(240,50)-(304 ,114 ) ,3 
960  PAINT(30,70) ,3 
970  LINE(52,70)-(63,90) ,0 
980  LINE(142,109)-(146,115 ) ,0 
995  IF  REPEAT  >  1  GOTO  1800 
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998  ' 

999  ' 
1000 
1001 
1002 
1004 
1006 
1008 
1010 
1016 
1018 
1022 
1024 
1026 
1028 
1030 
1040 
1050 
1055 
1097 
1098 
1099 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1245 
1250 
1255 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


Mtt*MMttMMtt*MMMMKM*tttt*wM*      draw    red    plane 


MttttMttttMM 


LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

PAINT 

GET    ( 

PUT    ( 


(5,8) 
(22,1 
(22,1 
(22,8 
(22,8 
(29,2 
(29,2 
(22,5 
(22,5 
(6,5) 
(6,5) 
(0,7) 
(5,8) 
(16,7 
0,2)- 
0,2), 


-(14, 8), 2 

1)-(14,8),2 

1)-(25,11),2 

)-(25,ll),2 

)-(28,7),2 

)-(28,7),2 

)-(25,2),2 

)-(25,2),2 

)-(8,4),2 


) 


-(8,4 

-(2,7 

-(2,7 

-(2,7 

),2 

(29,11) 

PLANED 


PLANED 


'KMKttMMMMttttttttttttMMMttttMM*  d  F  3.W      t>l\ie       "tank  ******** 


LINE(24 
LINE(60 
LINE(60 
LINE(56 
LINE(56 
LINE(49 
LINE(46 
LINE(32 
LINE(32 
LINE(24 
LINE(24 
LINE(24 
LINE(36 
LINE(48 
LINE(45 
LINE(60 
CIRCLE( 
CIRCLE( 
PAINT(4 
PAINT(3 
LINE(30 
LINE(50 
LINE(20 
LINE(40 
LINE(60 
CIRCLE( 
CIRCLE( 
CIRCLE( 
CIRCLE( 


,190 

,180 

,180 

,170 

,170 

,167 

,166 

,170 

,170 

,180 

,180 

,190 

,168 

,168 

,166 

,152 

36,154 

36,161 

0,175  ) 

6,162) 

,176)- 

,171)- 

,184)- 

,190)- 

,173)- 

41 ,186 

47,183 

52,181 

57 ,178 


40, 
40, 
60, 
60, 
50, 
50, 
40, 
40, 
30: 
30, 
20 
20 
36 
60 
58 
58 
,6 
,6 
0 
0 

40 
40 
36 
36 
36 
,2 
2 
2 
2 


190 
190 
174 
174 
170 
170 
166 
166 
176 
176 
184 
184 
166 
152 
150 
150 
0,4 
0,2 


,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

,0 

1,5.3, .8 

36, .785 , .7 


176) 
176) 
184  ) 
184  ) 
184  ) 
1 
1 
1 
1 
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1390  GET  (20,150)-(60,190),TANK£ 
1398  ' 

1400  **************************   draw  cloud    ******** 

1401  ' 

1405  GET  (2, 131)-(20, 150) , BLANKS 
1410  CIRCLE  (102,141  )  ,6,0,0,4 
1420  CIRCLE  (109,145  )  ,5,0,4  ,2.5 
1430  CIRCLE  (108,137)  ,6,0,5.5,2.6 
1440  GET  (96,131  )-(114 ,150)  , CLOUDS 
1445  PUT  (96,131  )  , BLANKS, PSET 

1499  ' 

1500  '*********************   draw  red  bullet   ******** 

1501  ' 

1505  LINE  (98,20)-(  99,21),2,BF 
1510  GET  (98,20)-(  99,21),BULL£ 
1520  PUT  (98,20)  ,BULL# 

1619  ■ 

1620  ***************   draw  red/brown  fireball  ******** 

1621  ' 

1630  PSET  (3,0) 

164  0  DRAW  "p2,3" 

1650  DRAW  "f5;m0,9;ml0,7;f2;e2;f2;e3;m29,4" 

1660  DRAW  "M22,3;u3;ml8,3;h3;g3;m3,0" 

1670  PAINT  (15, 5), 2 

1680  PSET  (10,4) 

1690  DRAW  "p3,3;ml3,6;el;r6;ml5,3;g2;ml0,4" 

1710  PAINT  (15, 4), 3 

1730  GET  (0,0)-(29,9) ,BUM£ 

1750  PUT  (0,0),BUM£ 

1799  ' 

1800  ****************   put  T  tanks  on  screen   ******** 

1801  ' 

1805  FOR  1=1  TO  T 

1810  X-20+40*(I-l) 

182  0  PUT  (X,150  )  ,TANK£,AND 

1830  NEXT  I 

1899  ' 

1900  *************************   write  footer   ******** 

1901  ' 

1910  LOCATE  25,2 

1920  IF  SIM  =  1  THEN  PRINT  USING  "Protocol  # 

(Random  selection )"; SIM; 
1930  IF  SIM  =  2  THEN  PRINT  USING  "Protocol  # 

(Controlled  assignment )"; SIM; 

1999  ' 

2000  ************************   animate  plane   ******** 

2001  ' 

2002  LOCATE  25,36:  PRINT  USING  "####"; RUNC0UNT+1 ; 

2005  X  =  200:Y  =  10  'init  position  of  formation 

2010  FOR  1=1  TO  PL       'get  positions  of  single  planes 
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2020  ON  I  GOSUB  5100,25200,25300,25400,25500, 

25600,25700 ,2  580  0 ,25  9  00 
2030  PUT  (XP.YP) , PLANED  'put  plane  on  screen 

2040  NEXT  I 

2050  GET  (200,10 )-(319, 39) , FORMATIONS  'store  formation 
2060  PUT( 200, 10) .FORMATIONS  'remove  formation 

2062  FOR  I  =  1  TO  PL:PLNR(I)  -  500:  NEXT     'init  plane 

not  shot  =  500 

2065  FOR   I  -  1  TO  T:PT(I)  =  I:  NEXT  'init  assign  plane 

to  tank 

2066  RUNHIT  =  0:  ROUND  -  0:  AS=T :  L=T  'init 

2067  IF  SIM=2  AND  PL<T  THEN  :  L=PL 

2068  RUNCOUNT  -  RUNCOUNT  +  1  'count  runs 
2070  FOR  X=200  TO  1  STEP  -PLSPEED  'move  formation 
2080  PUT  ( X, 10) .FORMATIONS, PSET 

2085  IF  X>200-ALLOC  THEN  : FOR  DELAY=1  TO  100  :NEXT: 

GOTO  2310  'wait  with  shoting 

2088  R0UND=R0UND+1   : R0UNDNR=R0UNDNR+1    'count  rounds 

2089  IF  SIM  =  2  THEN  :  GOSUB  52000 

2090  IF  SIM  =  1  THEN  :  GOSUB  51000 

2305  IF  RUNHIT  >=  PL  GOTO  2500  'if  all  planes  hit, 

end  round 
2310  NEXT  X 
2320  FOR  1=1  TO  PL 

2330  IF  PLNR(I)=500  THEN : SURV-SURV+1  'count  survivor 
2340  NEXT  I 

2350  PUT  (X+PLSPEED, 10 ) .FORMATIONS  'remove  formation  on 

end   of  screen 
2500  IF  INKEY$  <>  ""  GOTO  2510  'if  any  key  hit,  end 

round 

2505  IF   RUNCOUNT  <  RUNNR  GOTO  2000  'if  not  all  attacks 

done ,  new  run 

2506  FOR  DELAY  -  1  TO  1000:  NEXT         'wait  a  second 

2507  ' 

2508  *********************   end  of  animation   ******** 

2509  ' 

2510  SOUND  9 0,2: SOUND  2 0  0, 2: SOUND  9 0,2: SOUND  2  0  0,2 
2515  LOCATE  1,1 

2520  PRINT  "<N>umerical  or  <G>raphical  statistics" 

2525  GOSUB  20000 

2530  IF  RESP0NSE$=."n"  OR  RESP0NSE$="N"  THEN  :  GOSUB 

30000 
2535  IF   RESPONSE$="g"  OR  RESP0NSE$= "G"  THEN  :  GOSUB 

35000 

2547  CLS 

2548  LINE  ( 78 , 45  )  - ( 258 , 147 ) , 2 . B 
2550  LOCATE  8,12 

2552  PRINT  "New  Iterations  under:" 

2554  LOCATE  10,12 

2555  PRINT  "<S>ame  Protocol" 
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2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 

2566 
2570 

2579 
2580 
4999 
5000 
5001 
5010 
5020 

5030 
5040 

5050 

5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5999 
6000 
6001 
6010 
6020 
6030 
6040 
6050 
6060 

6070 

6080 

6090 


LOCATE  12,12 

PRINT  "<0>ther  Protocol" 

LOCATE  15,12 

PRINT  "<M>ain  menu" 

LOCATE  17,12  :  PRINT  "<Q>uit" 

LOCATE  21,12  :  PRINT  "Enter  your  selection:" 

GOSUB  20000 

IF  RESPONSE$-"s"  OR  RESP0NSE$="S"  GOTO  2570 


IF  RESPONSES^ 


OR  RESP0NSE$="0"  THEN: IF   SIM-1 


THEN    SIM=2:ELSE   SIM=1:G0T0   2570 
IF  RESP0NSE$="q"  OR  RESP0NSE$="Q"  GOTO  40000 
SURV=0  :  HIT=0  :  ROUNDNR-0  :  SH0T=0  :  DBL=0  : 

RUNCOUNT-0     'reset 
IF  RESP0NSE$="m"  OR  RESPONSE$="M"  GOTO  11000 
GOTO  800  'start  new  runs 


*******   BASICA  and  Colorgraphics  check 


MM****** 


DEF  SEG  =  0 

IF   (PEEK(&H410)  AND  &H30 )  <>  &H30  THEN  DEF  SEG  : 

GOTO  5070 
LOCATE  3,1: PRINT  "Sorry  ...  " 
PRINT  "you  do  not  have   the  color /graphics  monitor 

adapter ! " 
PRINT   "This  simulation  uses  graphics  and  requires 

that  adapter . " 
DEF  SEG: END 

ON  ERROR  GOTO  5080  :  PLAY  "pl6"  :  GOTO  5130 
WIDTH  80  :  CLS  :  LOCATE  3,1 

PRINT  "This  simulation  uses  advanced  BASIC." 
PRINT  "Return  to  DOS  by  typing  'SYSTEM'," 
PRINT  "load  BASICA  and  reload  this  program" 
END 
ON  ERROR  GOTO  0 

RETURN 

i 

*************************   Title  Screen   ******** 


SCREEN  0,1 
LOCATE  2,12 
LOCATE  4,19 
LOCATE  6,11 
LOCATE  9,13 
LOCATE  14,5 

LOCATE   15,2 

LOCATE  17,1 

LOCATE   19,4 


COLOR  14,1,1  :  WIDTH  40  :  CLS 
PRINT  "GRAPHIC  SIMULATION" 
PRINT  "of  an" 

PRINT  "AIR  DEFENSE  SCENARIO" 
PRINT  "by  Klaus  Schuster" 
PRINT  "Submitted  in  partial 

fulfillment" 
PRINT  "of  the  requirements  for  the 

degree  of" 
PRINT  "Master  of  Science  in 
Operations  Research" 
PRINT  "from  the  Naval  Postgraduate 

School" 
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6100  LOCATE  20,11:  PRINT  "Monterey,  California" 
6110  LOCATE  22,6  :  PRINT  "Advisors  J.D.  Esary,  P. 

Purdue" 
6120  LOCATE   25,2  :  PRINT  "Press  any  key  to 

continue . . . " ; 
6130  GOSUB  20000 
6140  RETURN 

6999  ' 

7000  *************************************************       Instructions   ******** 

7001  ' 

7010  SCREEN  0,1  :  COLOR  14,1,1  :  WIDTH  40  :  CLS 
7020  LOCATE  3,6   :  PRINT  "INSTRUCTIONS  FOR  THE  MENU" 
7025  PRINT  BORDERS 

7030  LOCATE  5,2 

7031  PRINT  "   This  program  is  an  animated  graphic" 

7035  LOCATE  6,2 

7036  PRINT  "simulation  of  an  air  defense  scenario" 

7040  LOCATE  7,2 

7041  PRINT  "in  which  some  attacking  aircraft  are" 

7045  LOCATE  8,2 

7046  PRINT  "intercepted  by  several  defenders." 

7050  LOCATE  10,2 

7051  PRINT  "   Two  target  assignment  protocols  are  " 

7055  LOCATE  11,2 

7056  PRINT  "possible:" 

7060  LOCATE  13,2 

7061  PRINT  "   (1)  random  selection  by  the  defender" 

7065  LOCATE  14,2 

7066  PRINT  "   (2)  controlled  target  assignment" 

7070  LOCATE  18,2 

7071  PRINT  "   The  program  menus  will  guide  you." 
7080  LOCATE  25,1  : 

PRINT  "Press  any  key  to  continue  ..."; 
7085  GOSUB  20000 
7090  CLS 

7100  LOCATE  1,2 

7101  PRINT  "Default  parameters  for  both  protocols:" 

7105  LOCATE  3,2 

7106  PRINT  "  Number  of  attackers        :    7" 

7110  LOCATE  4,2 

7111  PRINT  "  Number  of  defenders        :    5" 

7115  LOCATE  5,2 

7116  PRINT  "  Probability  of  hit         :   .2" 

7120  LOCATE  6,2 

7121  PRINT  "  Exposure  time  :   40" 

7125  LOCATE  7,2 

7126  PRINT  "  Acquisition  time  :   30" 

7130  LOCATE  8,2 

7131  PRINT  "  Number  of  repeated  attacks:   20" 

7145  LOCATE  11,2 

7146  PRINT  "Options  of  the  main  menu:" 
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7147  LOCATE  13,2 

7148  PRINT  "Pressing  <I>  gives  the  above" 

7149  LOCATE  14,2 

7150  PRINT  "  instruction  screens" 

7151  LOCATE  15,2 

7152  PRINT  "Pressing  <1>  starts  simulation  with" 

7155  LOCATE  16,2 

7156  PRINT  "  defaults  in  protocol  1" 

7160  LOCATE  17,2 

7161  PRINT  "Pressing  <2>  starts  simulation  with" 

7165  LOCATE  18,2 

7166  PRINT  "  defaults  in  protocol  2" 

7170  LOCATE  19,2 

7171  PRINT  "Pressing  <C>  allows  alteration  of" 

7175  LOCATE  20,2 

7176  PRINT  "  simulation  parameters" 

7180  LOCATE  21,2 

7181  PRINT  "Pressing  <N>  allows  alteration  of" 

7185  LOCATE  22,2 

7186  PRINT  "  random  number  seed" 

7197  LOCATE  23,2 

7198  PRINT  "Pressing  <Q>  quits  the  program" 

7200  LOCATE  25,1  : 

PRINT  "Press  any  key  to  continue  ..."; 

7201  GOSUB  20000 

7202  CLS 

7205  LOCATE  1,2 

7206  PRINT  "The  Statistics  Screens:" 

7210  LOCATE  3,2 

7211  PRINT  "To  show  the  statistical  results," 

7215  LOCATE  4,2 

7216  PRINT  "the  program  has  two  options:" 

7220  LOCATE  6,2 

7221  PRINT  "   <N>  Numerical  statistics  screen" 

7225  LOCATE  7,2 

7226  PRINT  "   <G>  Graphical  statistics  screen" 

7230  LOCATE  9,2 

7231  PRINT  "Both  present  the  same  information." 

7235  LOCATE  11,2 

7236  PRINT  "Upon  entering  the  graphical  screen  a" 

7240  LOCATE  12,2 

7241  PRINT  "second  time,  the  previous  screen  will" 

7245  LOCATE  13,2 

7246  PRINT  "be  shown  on  the  right  side." 

7250  LOCATE  15,2 

7251  PRINT  "Continuing  from  the  statistics  screens" 

7255  LOCATE  16,2 

7256  PRINT  "leds  to  the  iterations  option  screen" 
7260  LOCATE  18,2 
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Pressing  <S>  starts  simulation  under  " 
19,2 

same  default  parameters" 
20,2 

as  before" 
21  ,2 

Pressing  <0>  starts  simulation  under  " 
22,2 

other  protocol  than  before" 
23,2 
Pressing  <M>  goes  back  to  main  menu  " 

24  ,2 

Pressing  <Q>  quits  the  program"; 

25  ,1  : 

Press  any  key  to  go  back  to  main  menu" ; 


'return  to  main  menu 


7261  PRINT 

7265  LOCATE 

7266  PRINT 

7270  LOCATE 

7271  PRINT 

7275  LOCATE 

7276  PRINT 

7280  LOCATE 

7281  PRINT 

7285  LOCATE 

7286  PRINT 

7290  LOCATE 

7291  PRINT 

7300  LOCATE 
PRINT 

7301  GOSUB  20000 

7302  CLS 
7500  GOTO  11010 

9999  ' 

10000  '*******   load  random  number  generator   ******** 

10001  ' 

10010  RNGEN=0:U!=0 

10015  ON  ERROR  GOTO  10050  'file  not  found 

10020  DEF  SEG  =  &H1A00 

10030  BLOAD  DRIVE$+"rngen . srt " , 0 

10032  A#  -  3245678!  'default  seed 

10034  GOTO  10570 

1004  0  RETURN 

10050  IF  ERR  <>53  THEN  ON  ERROR  GOTO  0 

10060  CLS:LOCATE  3,1 

10070  INPUT  "On  which  drive  could  RNGEN.SRT  be 

found? ";A$ 
10080  DRIVES  =A$+":" 
10090  RESUME  10020 

10499  ' 

10500  '********** 

10501  ' 

10510  COLOR  14,0,0 
10520  LOCATE   3,4 


Change  random  number  seed   ******** 


:  CLS 
PRINT  "SET  RANDOM  NUMBER  GENERATOR 
SEED": PRINT  BORDERS 
PRINT  "Allowed  seed  values  are 

integers" 
PRINT  "in  the  range  1  ... 

2,147,483,646" 
INPUT  "Enter  the  new  seed  value   : 

",A# 
10560  IF   A#<1  OR  A#>2147483646#  THEN  LOCATE  13,2:PRINT 

STRING$(39,32 ) : GOTO  10550 
10570  DEF  SEG  -  &H1A00 
10580  Al!  =  INT(A#/16777210#): 

A2!  -  INT( (A#-A1 ! »16777210# )/ 65536 ! ) 


10530  LOCATE  7,3 
10540  LOCATE   9,3 
10550  LOCATE  13,2 
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10600  'poke  the  seed's  upper  2  bytes  into   RNGEN ' s  seed 

storage 
10610  POKE  &H164.A1!  :  POKE  &H163.A2! 
10620  A#  =  A#-A1 ! *16777210#-A2 ! *65536! 
10630  Al!  =  INT(A#/256)  : 

A2!  -  A#-A1 ! *256 
10640  'poke   the  seed's  lower  2  bytes  into  RNGEN ' s  seed 

storage 

POKE  &H162,A1!  :  POKE  &H161,A2! 

GOTO  11010    'return  to  main  menu 


10650 
10660 
10999 
11000 
11001 
11005 
11010 
11020 
11030 

11040 
11050 


»** * ** * ** m *  * **** * *  *   Main  Program  Menu 


******** 


LOCATE  3,14 

LOCATE  5,3 
LOCATE  7,3 


11080 
11090 
11100 
11110 
11120 


11999 
12000 
12001 
12010 
12020 
12030 
12050 
12060 
12070 
12080 
12085 
12090 
12100 
12200 
12999 


INIT  =  0 

BORDERS  =  STRING$(40,223) 

SCREEN  0,1  :  COLOR  14,3,0  :  WIDTH  40  :  CLS 

PRINT  "PROGRAM  MENU"  : 
PRINT  BORDERS 
PRINT  "<I>nstructions" 
PRINT  "<l>Default  Parameter 

Protocol  1" 
PRINT  "<2>Default  Parameter 

Protocol  2" 
PRINT  "<C>hange  Simulation 

Parameter" 
PRINT  "<N>ew  random  number 

generator  seed" 
PRINT  "<Q>uit  Program" 
PRINT  "Enter  your  selection:"; 

'get  keyboard  response 
k%    =  INSTR( "IN12CQinl2cq" .RESPONSES) 
IF  A£  =  0  THEN  11010  :  ELSE  ON  k<t>    GOTO  7000, 

10500,12000,12000,130  00,40000, 
7000,10500,12000,12000,13000,40000 


11060  LOCATE  9,3 
11070  LOCATE  11,3 
11075  LOCATE   13,3 


LOCATE  15,3 
LOCATE  18,3 
GOSUB  20000 


♦  *******      Default  simulation  parameter 

T  =  5 

PL  =  7 

HITPROB  -  .2 

EXPOS  =   40     '30. . .200 

RUNNR  =20 

AIMTIME  =  30 

SIM  =  1 

IF  A£  =  4  OR  k%    =  10  THEN  SIM  =  2 

ALLOC  =  (200»AIMTIME)/EXPOS 

PLSPEED  -  200/EXPOS 

GOTO  800 


******** 
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13000  ********   Change  simulation  parameters   ******** 

13001  ' 

13010  SCREEN  0,1  :  COLOR  15,5,0  :  CLS 

13050  LOCATE  3,6  :  PRINT  "CHANGE  SIMULATION  PARAMETERS" 

13060  PRINT  BORDERS 

13065  MSG1$  =  "Can  not  be  accepted!  Please  try  again." 

13070  LOCATE   6,1  :  INPUT  "Enter  #  of  Attackers 

( 1 .  .  . 9  )  :  " , PL 
13080  IF  PL<1  OR  PL>9  THEN  LOCATE  23,1:  PRINT  MSG1$: 

LOCATE  6,1: PRINT  STRING$( 40 , 32 ) : 

GOTO  13070 
13090  LOCATE  23,1  :  PRINT  STRING$( 40 , 32 ) ; 
13100  LOCATE  8,1  : 

INPUT  "Enter  #  of  Defenders    (1...7):  ",T 
13110  IF  T<1  OR  T>7  THEN  LOCATE  23,1:PRINT  MSG1$: 

LOCATE  8,1: PRINT  STRINGS ( 40 , 32 ) : 

GOTO  13070 
13120  LOCATE  23,1  :  PRINT  STRING$( 40 , 32 ) ; 
13130  LOCATE  10,1  :  INPUT  "Enter  P[  hit  a  plane  ] 

(0. . .1 ): " .HITPROB 
13140  IF  HITPROB<0  OR  HITPR0B>1  THEN  LOCATE  23,1: 

PRINT  MSG1$: LOCATE  10,1: PRINT  STRING$( 40 , 32 ) : 

GOTO  13130 
13150  LOCATE  23,1  :  PRINT  STRINGS ( 40 , 32 ) ; 
13160  LOCATE   12,1:  INPUT  "Enter  Exposure  time 

(30. .200): " , EXPOS 
13170  IF  EXP0SO0  OR  EXPOS>200  THEN  LOCATE  23,1: 

PRINT  MSG1$: LOCATE  12,1: PRINT  STRING$( 40 , 32 ) : 

GOTO  13160 
13180  LOCATE  23,1  :  PRINT  STRING$( 40 , 32 ) ; 
13190  LOCATE  14,1:  INPUT  "Enter  Acquis! tiontime 

(0. .200): " ,AIMTIME 
13200  IF  AIMTIME<0  OR  AIMTIME>200  THEN  LOCATE  23,1: 

PRINT  MSG1$: LOCATE  14,1: PRINT  STRINGS ( 40 , 32 ) : 

GOTO  13190 
13210  LOCATE  23,1  :  PRINT  STRING$( 40 , 32 ) ; 
13220  LOCATE  16,1:  INPUT  "Enter  #  of  repeated  attacks  : 

" , RUNNR 
13230  LOCATE   18,1:  INPUT  "Enter  Protocol  type    (1  or 

2):  ",SIM 
13240  IF  SIM<1  OR  SIM>2  THEN  LOCATE  23,1:PRINT  MSG1$: 

LOCATE  18,1: PRINT  STRING$( 40 , 32 ) : 

GOTO  13230 
13250  LOCATE  23,1  :  PRINT  STRINGS ( 40 , 32 ) ; 
13260  ALLOC  =  ( 200*AIMTIME ) /EXPOS 
13270  PLSPEED  -  200/EXPOS 
13300  GOTO  800 
19999  ' 
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20000 
20001 
20010 
20020 
20030 
24999 
25000 
25001 
25100 
25110 
25120 
25200 
25210 
25220 
25300 
25310 
25320 
25400 
25410 
25420 
25500 
25510 
25520 
25600 
25610 
25620 
25700 
25710 
25720 
25800 
25810 
25820 
25900 
25910 
25920 
25999 
30000 
30001 
30005 
30010 
30020 

30022 


************** 


Get  keyboard  response   ******* * 


DEF  SEG  :  POKE  &H6A 
RESPONSES  -  INKEY$ 
RETURN 


0 


IF  RESPONSES 


""  THEN  20  02  0 


*  ********** 


get  coordinates  for  plane   ***  ** ****** 


XP  =  X 
YP  =  Y 

RETURN 
XP  -  X 
YP  =  Y 
RETURN 
XP  =  X 
YP  =  Y 
RETURN 
XP  -  X 
YP  =  Y 
RETURN 
XP  =  X 
YP  =  Y 
RETURN 
XP  -  X 
YP  -  Y 
RETURN 
XP  -  X 
YP  =  Y 
RETURN 
XP  =  X 
YP  =  Y 
RETURN 
XP  =  X 
YP  =  Y 
RETURN 


+  10 


+  30 


30 
20 

60 
10 

30 
10 


+  60 


60 
20 


20 


m«»km«»kkm«khk«   numerical  statistics   ******** 


CLS 

VIEW  SCREEN  ( 1 , 8  )- ( 318 , 168 ) 

LOCATE  3, 7: PRINT  USING 

"PROTOCOL  #  with  #### 
LOCATE  4, 7: PRINT 


0  ,2 


ATTACKS" ; SIM; RUNCOUNT 


30025  LOCATE  5,2 
30030  PRINT  USING 

"Attackers 

30032  LOCATE  6,2 


# 


Exposure 


time :###"; PL; 
EXPOS 
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30035 


30039 
30040 
30044 
30045 

30049 
30050 


30059 
30060 


30069 
30070 


30079 
30080 


30089 
30090 


30099 
30100 


30150 
30180 

30190 
30200 

30210 

30240 
34999 
35000 
35001 
35010 
35020 
35025 
35030 
35035 
35040 


PRINT  USING 

"Defenders  :  #       Acquis! t . time :###"; T ; 

AIMTIME 
LOCATE  7,2 

PRINT  USING  "Hitprob.   : . ##" ;HITPR0B 
LOCATE  8,2 
PRINT 

N  _  II 


LOCATE  10,2 
PRINT  USING 

"Avg  No  of  shots/attack 

LOCATE  12,2 
PRINT  USING 

"Avg  No  of  kills/attack 

LOCATE  14,2 


=###.##"; 
SHOT/RUNCOUNT 


-  ##.##"; 
HIT/RUNCOUNT 


PRINT  USING 

"Avg  No  of  mult. hits/attack   =  ##.##"; 

DBL/RUNC0UNT 
LOCATE  16,2 
PRINT  USING 

"Avg  No  of  survivors/attack   =  ##.##"; 

SURV/RUNCOUNT 
LOCATE  18,2 
PRINT  USING 

"Avg  No  of  kills/shot         -   #.###"; 

HIT/SHOT 
LOCATE  20,2 
PRINT  USING 

"Avg  time  to  last   survivor   -###.##"; 

(R0UNDNR/RUNC0UNT)  +  AIMTIME 
VIEW 

LOCATE  25,1  : 

PRINT  "<G>raphical  statistic  <C>ontinue  <Q>uit"; 
GOSUB  20000 
IF  RESPONSE$="g"  OR  RESPONSE$="G"  THEN  CLS  : 

GOSUB  35000 
IF  RESP0NSE$="q"  OR  RESP0NSE$="Q"  THEN  : 

GOSUB  40000 
RETURN 


» ***************   graphical  statistics 
» 

SCREEN  1  :  COLOR  1,0  :  CLS 

IF  GRPH  -  1  THEN  PUT  ( 159 , 1  ), STATIC 

LINE  (1 ,1  )-( 158,189)  ,2, B 


MM****** 


LOCATE  2,5 
LOCATE  3,2 
LOCATE  4,2 


PRINT  USING"PROTOCOL  #";SIM 
PRINT         " "J 

PRINT  USING  "Attackers  :   #"; PL 
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35050 
35060 
35065 

35070 
35075 
35080 
35090 
35100 
35110 
35120 
35130 
35140 
35150 
35160 
35170 

35175 
35180 
35190 
35200 
35210 
35220 
35230 

35240 
35250 
35260 


LOCATE 
LOCATE 
LOCATE 


5 
6 

8 


2 
2 
2 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LINE 

LINE 


9,: 

10 

n 

12 
13 


2 

2 
2 
2 


PRINT  USING  "Defenders  :   #";T 
PRINT  USING  "Hitprob.   : .##" ;HITPROB 
PRINT  USING  "No  of  Attacks :####" ; 

RUNCOUNT 

»? !«  . 

Attack: " : 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"Avg  per 

"Shots" 

"Kills" 

"Mult. " 
(48,80  )-(128,87) ,1,BF 
( 48,88  )-( ( (80/SHOT)*HIT)+48,9  5 ) 


2,BF 


LINE  (48,96  )-( ( ( 80 /SHOT ) *DBL )  +  48 , 103 ) , 3 , BF 


LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LINE 

LINE 

LINE 


PRINT  USING  "####" ;SHOT/RUNCOUNT 
PRINT  USING  "##.#" ;HIT/RUNCOUNT 
PRINT  USING  "##.#" ;DBL/RUNCOUNT 
PRINT  USING  "Kills/shot(#)  =###"; 

100*HIT/SHOT 
"Times: " 
"Expos" 
"Acqui" 
"Survi" 
(48,144  )-(128,151 ) ,1 ,BF 
(48,152  )-( ( ( 80 / EXPOS )  *AIMTIME )  +  48 , 159) 


11 
12 
13 
15 

18 
19 
20 
21 


16 
16 
16 
2 

2 
2 
2 
2 


PRINT 
PRINT 
PRINT 
PRINT 


2,BF 


(48,160  )-( ( (80/EXPOS) 


LOCATE 
LOCATE 
LOCATE 


19 
20 

21 


16 
16 
16 


35270  LOCATE  23,2 


35275 
35277 
35280 

35290 
35300 


GET  (1 
GRPH  = 
LOCATE 


1  )-(158,199) 

1 

25,1  :  PRINT 


( (ROUNDNR/ RUNCOUNT )+ 
AIMTIME) ) +48, 167) ,3,BF 
"####"; EXPOS 
"####" ;AIMTIME 
"####"; 

(ROUNDNR/RUNCOUNT)+AIMTIME 
PRINT  USING  "Intercepted(£)=###" ; 
100*(l-(SURV/( RUNCOUNT *PL) ) ) 
STATIC 


PRINT 
PRINT 
PRINT 


USING 
USING 

USING 


" <N>umer ical  statistic 
<C>ontinue  <Q>uit"; 
GOSUB  20000 
IF   RESPONSE$="n"  OR  RESPONSE$="N"  THEN  CLS 


35310  IF  RESPONSE$="q"  OR  RESPONSE$= "Q " 


GOSUB 

THEN  : 

GOSUB 


30000 


40000 


36000 
39997 
39998 
39999 
40000 
40005 
40010 
40011 
40015 
40025 
40030 


RETURN 


'  *  *  *  K  *  *  *  »   *  *  H   *  *  M  K  *  H  *  *  K  H  H  *      Exit   PTOSTa!!!      *  *  *  M  *  *   *  * 


CLS 

LOCATE12 ,4 :PRINT"Thank  you  for 

LOCATE  14  ,15:PRINT"Good  Bye!" 

FOR  DELAY  -  1  TO  1000:  NEXT 

KEY  ON 

LOCATE  20,1 

END 


using  AIRDEF.BAS 
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50999 
51000 
51001 
51020 
51030 
51040 
51050 
51060 
51070 
51080 
51090 
51100 
51110 
51120 
51130 
51140 
51150 
51160 
51170 
51180 
51190 
51200 
51210 

51220 
51230 
51240 
51250 

51260 
51270 
51280 
51290 
51300 

51320 
51400 
51999 
52000 
52001 
52010 
52020 

52030 
52040 
52050 
52060 
52070 
52080 
52090 
52100 


'  ********************* 


***MMMX* 


FOR  1=1  TO  L 

XC  -  18+40*1 

XB  =  22+40*1 

PUT  ( XC, 131 ) , CLOUDS, PSET 

PUT  ( XB, 147 ) ,BULL£, PSET 

NEXT  I 

FOR  1=1  TO  L 

XC  =  18+40*1 

XB  =  22+40*1 

PUT  ( XC, 131 ), BLANKS, PSET 

NEXT  I 

FOR  1=1  TO  T 

SHOT  =  SHOT  +  1 

DEF  SEG  =  &H1A00 

CALL  RNGEN(U! ) 

IF  U!  >  HITPROB  GOTO  51320 

CALL  RNGEN(U! ) 

TP  =  CINT(U! *PL  +  .5 ) 

IF  PLNR(TP)  <  ROUND  GOTO 

IF  PLNR(TP)  =  ROUND  THEN 


protocol  sim  1 
'put  clouds  for  shooting  tanks 


remove  clouds 


If  no 


for  every  shot 
'count  shots 

'get  rnd  # 
hit  next  tank 


51180 
:DBL=DBL+1:G0T0  51250  'if 
shot  this  round, dbl  hit 
'count  total  hits 
'count  hits  this  round 
'set  pi  shot  in  round# 
25300,25400,25500, 
25800,25900 

'sound  and  bum% 


HIT  =  HIT  +  1 
RUNHIT  -  RUNHIT  +  1 
PLNR(TP)  -  ROUND 
ON  TP  GOSUB  25100,25200 
25600,25700 
SOUND  90,2 
PUT  (XP,YP) ,BUM£,PSET 
FOR  DELAY  -  1  TO  500  :  NEXT 
PUT  (XP,YP) ,BUM# 
GET   (X,10)-(X+119, 39) , FORMATION^         'get  new 

formation  w/o  shot  planes 
NEXT  I 
RETURN 


'  ********************* 


protocol  sim  2 


******** 


FOR  1=1  TO  L 

IF  PT( I  )  -  0 


GOTO  52100 


'put  clouds  to  tank 
if   no  assignment  next 

tank 


XC  =  18+40*1 

XB  =  22+40*1 

PUT(XC,131 ) , CLOUDS, PSET 

PUT(XB,147  )  ,BULL%,PSET 

FOR  DELAY  -  1  TO  100  :  NEXT 

PUT(XC,131 ) , BLANKS, PSET 

SHOT  =  SHOT  +  1 

NEXT  I 


remove 
' count 


cloud 
shots 
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52110  FOR  I  -  1  TO  L 

52115  IF  PT(I)  -  0  GOTO  52260 

52120  DEF  SEG  -  &H1A00 
52130  CALL  RNGEN(U! ) 
52140  IF  U!  >  HITPROB  GOTO  52260 
52150  HIT  -  HIT  +  1 
52160  RUNHIT  =  RUNHIT  +  1 
52170  ON  PT(I)  GOSUB  25100,25200,2 

25600,25700,2 
52180  SOUND  90,2 
52190  PUT  (XP,YP) ,BUM£,PSET 
52200  FOR  DELAY  -  1  TO  500  :  NEXT 
52210  PUT(XP,YP) ,BUM£ 
5  222  0  GET(X,10)-(X+119,39) .FORMATI 

form 
52225  PLNR(PT(I))  =  ROUND 
52230  PT(I)  =  0        'set  tank  fr 
52240  IF  AS  <  PL  THEN  AS  =  AS  +  1 

52260  NEXT  I 
52270  RETURN 


if  no  assignment  next 

tank 

'get  rnd  # 

'if  no  hit  next  tank 

'count  total  hits 

'count  hits 

5300,25400,25500, 

5800 ,25900 

'sound  and  bum% 


'remove  bum  and  plane 
0N$  'get  new 

ation  w/o  shot  planes 
set  pi  shot  in  round# 
ee  for  new  assignment 
:  PT(I )  =  AS  'get  new 
assignment  for  tank 
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